home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / SPADV.ZIP / CGADRV.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  460b  |  33 lines
  1. unit CGAdrv;
  2.  
  3. interface
  4.  
  5.   uses Graph;
  6.  
  7.   procedure InitCGA(Gm:integer);
  8.  
  9. implementation
  10.  
  11.   procedure CgaDriverProc;external;
  12.     {$L CGA.OBJ}
  13.  
  14.   procedure RegisterCGA;
  15.   var
  16.     Result:integer;
  17.   begin
  18.     Result:=RegisterBGIdriver(@CgaDriverProc);
  19.   end;
  20.  
  21.   procedure InitCGA(Gm:integer);
  22.   var
  23.     Gd:integer;
  24.   begin
  25.     Gd:=CGA;
  26.         InitGraph (Gd,Gm,'a:\');
  27.   end;
  28.  
  29. begin
  30.   RegisterCGA;
  31.   InitCGA(CGAhi);
  32.   RestoreCrtMode;
  33. end.